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; 1 001 MODULE CHKHM1 ( ; 
3 g ¢ LANGUAGE (OL 1585¢) » é 
H IDENT = ‘v04-00 ; 
; 4 4 d= > 
s 5 BR BEGIN 3 
3 6 $ 1 3 
3 7 07 1! 3 
$ 8 si : | Seeceneceraenenaesesneneneeaenenereeeeeneeereeonsenteneneneneneneeneetretnts Ps 
3 '® ® Ps 
3 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
$ 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; 1 0018 } i. ALL RIGHTS RESERVED. * ; 
: . ® e 
3 14 014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH T SUCH LICENSE AND WITH THE * : 
: 16 B08 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
3 17 001 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 18 Bots 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 13 ith : ‘* TRANSFERRED. * : 
3 : * 3 
H 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; ¢ b0s¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
3 $i B05z } + CORPORATION. * F 
3 . ® ° 
; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
: 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; e7 0027 1 !* ~ 3 
5; 2 0028 1 !* * 3 
: 56 94 : Lee AAAAAAARRARA ARERR REAR EAE AERA EREEEE § 
; 0 3 
3 1 0031 1 !+ $ 
; ; ie 1! 3 
3 5 ! FACILITY: MOUNT Utility Structure Level 1 : 
; 5 0035 1 ! ABSTRACT: 3 
3 6 pee 1! 3 
. iv 0037 1! This routine verifies whether a given block is Files-11 Structure ‘ 
; 3 0038 1! Level 1 home block. 3 
; 9 Boz 1! 3 
; 40 040 1 ! ENVIRONMENT: 3 
; (41 0041 1! 3 
3 45 Ooe§ 1! STARLET operating system, including privileged system services : 
: 6 045 1! and internal exec routines. $ 
3 44 044 1! $ 
3 45 045 1 !<= 3 
: 46 Boe8 1! é 
; «647 0047 1! 3 
3 r+ 4 Boe8 : : AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Nov-1977 19:23 : 
: 29 pet ! MODIFIED BY: : 
: 52 O3¢ 1! V03-002 HH0041 Hai Huang 24-Jul-1984 3 
3 &7 O34 ! : Remove REQUIRE ‘LI8D$:CVASLIB.OBJJMOUNTMSG.B32'. : 
3 2 7 @.y v03-001 LMP0021 L. Mark Pilant, 5-Apr-1982 15:10 3 
3 2$ Bp e9 ! : Add support for ODS-1 structure version 2. : 
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: v02-000 ACG0167 Andrew C. Goldstein 18-Apr-1980 13:37 
i Previous revision history moved to MOUNT.REV 


lean 


Seer eeesece 
o 
—_ 
wre —O00 


> 9 3 > 


LIBRARY ‘SYSSLIBRARY:L B,L52"; 
REQUIRE 'SRC$:MOUDEF .B32'; 
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CHKHM1 16-Sep-1984 01:11:38 -VAX=11 Bliss-32_V4.0-742 Page 3 c 
v04-000 12-809-13 4 er DISKSVMSMASTER: CMOUNT . SRCJCHKHM1.B32:1> (2) Vv 
; 68 8236 } GLOBAL ROUTINE CHECK_HOMEBLK1 (HOME_BLOCK, LBN, VOLUME_LABEL) = : 
; 68 338 1 See : 
; #69 2? ‘ 
3 4 res ! } FUNCTIONAL DESCRIPTION: ; 
ae. 602 ‘| This routine verifies whether the given block is a Files-11 Structure : 
; 6 , ; Level 1 home block. ‘ 
3; 604 1! ; 
; 605 1! ; 
; f 6 $ 1 ! CALLING SEQUENCE: : 
3 a4 ° f ; CHECK_HOMEBLK1 (ARG1, ARG2, ARG3) : 
:; 79 0609 1 ! INPUT PARAMETERS: : 
; 80 3919 1; ARG]: address of buffer containing block : 
> «81 53 ; | ane! LBN oc : 
3 : be1§ : } ARGS: string descriptor of user specified volume Label ; 
> B4 0614 1 ! IMPLICIT INPUTS: : 
3; & 0615 1! NONE ; 
; Bei8 1! : 
; be! 1 ! OUTPUT PARAMETERS: 3 
; o8 0618 1! NONE ; 
; gol? 1! : 
:; 90 620 1 ! IMPLICIT OUTPUTS: : 
; wh 0621 1! NONE : 
3; F 06 ¢ 1! : 
. ¥ 06 1 ! ROUTINE VALUE: H 
>; «94 0624 1! if valid and correct ; 
ie <) 0625 1! f not P : 
$ 38 be 8 ! SSS_INCVOLLABEL if valid but volume Label is wrong , 
; #498 0628 1 ! SIDE EFFECTS: 3 
; Wy +494 .% NONE $ 
; 100 0630 1! $ 
: 101 0631 1 !-- 3 
; 102 Bos6 1 3 
: 103 865 BEGIN : 
; 104 0634 3 
: 105 R632 MAP $ 
: 106 O36 HOME BLOCK : REF BBLOCK, ! home block buffer | 3 
; 100 poe? VOLUME _LABEL : REF VECTOR; ! volume Label descriptor : 
3: 109 8073 EXTERNAL ROUTINE 3 
3 110 640 CHECKSUM2; ! compute home block checksums 3 
aie dede 
: 11§ ei$ : Check the required non-zero fields and compute the checksums. : 
s 115 645 3 
: 196 § IF NOT ¢ 3 
3; 117 64 ~ HOME _BLOCKCHM1$W_IBMAPSIZE] NEQ 0 ‘ 
: 118 rt} AND .HOME_BLOCKCHM1$L_IBMAPLBN) NEQ 8 3 
3 «119 64 AND .HOME BLOCK * ILES) NEQ 3 
; 120 50 AND .HOME BLOCKCHM1$W CLUSTER) NEQ 0 3 
3 Yel 651 AND CHECKSUM2 (.HOME_ BLOCK, SBYTEOFFSET (HM1$W_CHECKSUM1)) 

3 122 0652 CHECKSUM2 (.HOME_BLOCK, SBYTEOFFSET (HM1$W_CHECKSUM2) ) 
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s 123 635 ) 
; 4 684 THEN RETURN 0; 
Ps 2 
: 4 6 IF .HOME _BLOCKCHM1$W_STRUCLEV] NEQ HM1$C_LEVEL1 
. 3 $ e238 AND .HOME BLOCKCHM1$Q_STRUCLEV] NEQ HM1$C_LEVEL2 
: 8 638 THEN ERR_EXIT (SS$_FICESTRUCT); 
: 130 660 2 IF CHSNEQ (.VOLUME_LABELCOJ, .VOLUME_LABELC1), 
: 131 661 HM1$S_VOLNAME, HOME _BLOCKCHM1$T_VOLNAME], 0) 
. 4 ¢ 066¢ THEN RETURN (SSS"INCVOLLABEL); 
; 133 066 
: 136 0664 RETURN 1; 
: 135 665 
; 136 0666 1 END; ! end of routine CHECK_HOMEBLK1 
.TITLE CHKHM1 
SIDENT \V04-000\ 
.EXTRN CHECKSUM2 
-PSECT $CODE$,NOWRT,2 
000¢ 00000 .ENTRY CHECK_HOMEBLK1, Save R2,R3 : 0596 
52 04 AC DO 00002 MOVL § HOME BLOCK, R2 + 0647 
62 8 90006 TSTW = (R2) F 
SE 13 0000 BEQL ; 
02 Ag 03 0000A TSTL (R2) + 0648 
59 13 0000D BEQL $ : 
06 A2 8 0000F TSTW 6(R2) + 0649 
54 13 00012 BEQL $ : 
08 A2 8 90014 TSTW 8(R2) + 0650 
4F 13 00017 BEQL 5 ; 
3A DD 00019 PUSHL #58 > 0651 
2 DD 0001B PUSHL  R2 : 
0000G CF 02 FB 00010 CALLS #2, CHECKSUM2 HY 
43 50 £9 000 : BLBC = RO : 
7E O1FE BF 3C 000 MOVZWL #510, -(SP) : 0652 
52 DD OO02A PUSHL : ; 
00006 CF 08 FB 00 C CALLS #2, CHECKSUM2 F 
34 50 £9 00031 BLBC RO : 
0101 8F 0c A2 861 0054 CMPW 3=s«12(R2), #257 > 0656 
14 13 OO03A BEQL si ; 
0102 —s&F Oc A2 8} O05¢ CMPW 1ecR2), #258 + 0657 
0c i BEQL ssi : 
7E 08c0 ar 3C 00044 MOVZWL #2240, -(SP) : 0658 
000000006 00 1 FB 0049 CALLS #1, LiB$STOP : 
50 Oc ac D 0050 1$ VOLUME LABEL, RO + 0660 
00 04 80 id 69 20 09 4 CMPCS (RO), @4(RO). #0, #12, 14(R2) : 0661 
06 13 005¢ EQL ss S : 
50 010c Os BF 3¢ O55 MOV ZUL #268, RO > 0662 
50 01 B0 38 2$ HOVL #1, RO > 0664 
50 D4 6 68 3$ CLRL = RO. > 0666 
4 0006A ET : 
| 


j 
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CHKHM1 ' 1b-se -1984 VAX=11 Bliss-32 V4.0-742 3 
v04-000 3op- 188d fSi4 DISKSVMSMASTER:CMOUNT -SRCICHKHMI .B32¢4o" (23 
; Routine Size: 107 bytes, Routine Base: S$CODE$ + 0000 
; 13 p66? 1 
; i O38 1 END 
: 139 0669 0 ELUDOM 


-EXTRN LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 107 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ER eRe ae SEE ie eee Nee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBILIB.L32;1 18619 22 0 1000 00:01.9 
$ COMMAND QUALIFIERS 

4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CHKHM1/OBJ=OBJ$:CHKHM1 MSRC$:CHKHM1/UPDATE=(ENH$: CHKHM1) 
3; Size: 107 code + 0 data bytes 

3; Run Time: 210. 

3; Elapsed Time: 00:24.3 

3 Lines/CPU Min: 819 

3 Lexemes/CPU-Min: 35777 

5 penoty 8 Used: 91 pages 

; Compilation Complete 
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